(info-insert-file-contents): Inhibit jka-compr messages, which can be pretty annoying

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ff006be8eb997665943fb2be47c4ebaa6c5c73a..be6ec1985948880641f37001fe2da308084ba023 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2011-07-13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * info.el (info-insert-file-contents): Inhibit jka-compr messages,
+       which can be pretty annoying (bug#8971).
+
        * jka-compr.el (jka-compr-verbose): New variable, and use
        throughout (bug#8971).
 

diff --git a/lisp/info.el b/lisp/info.el
index 9e67542cda58c08b297a1cb71829e54abeb7ba81..cbdc8cc7ab360582417d5e7d9014d73152191230 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -464,6 +464,7 @@ be last in the list.")
   "Insert the contents of an Info file in the current buffer.
 Do the right thing if the file has been compressed or zipped."
   (let* ((tail Info-suffix-list)
+        (jka-compr-verbose nil)
         (lfn (if (fboundp 'msdos-long-file-names)
                  (msdos-long-file-names)
                t))